
		Imports Acceso_a_Datos.Datos
		Namespace BO
		Partial Public Class tMicroemprendimientos



# Region "tIndustrias"

		private mtIndustrias As New tIndustrias

		Public Property tIndustrias As tIndustrias
        Get
                mtIndustrias = mtIndustrias.TraerFiltradoListOf("IdIndustria", Me.IdIndustria).Item(0)
        Return mtIndustrias
        End Get
        Set
             If ((mtIndustrias Is Nothing) Or (Me.tIndustrias.Equals(value) = False)) Then
                If Not (Me.tIndustrias Is Nothing)
	               Dim oldtIndustrias As tIndustrias = Me.tIndustrias
                   Me.mtIndustrias = Nothing
                   oldtIndustrias.RemoveListatMicroemprendimientos(Me)
             	End If
            	If Not (value Is Nothing) Then
                   Me.mtIndustrias = value
                   Me.tIndustrias.AddListatMicroemprendimientos(Me)
            	End If
             End If
        End Set
       End Property

# End Region



# Region "tMunicipios"

		private mtMunicipios As New tMunicipios

		Public Property tMunicipios As tMunicipios
        Get
                mtMunicipios = mtMunicipios.TraerFiltradoListOf("IdMunicipio", Me.IdMunicipio).Item(0)
        Return mtMunicipios
        End Get
        Set
             If ((mtMunicipios Is Nothing) Or (Me.tMunicipios.Equals(value) = False)) Then
                If Not (Me.tMunicipios Is Nothing)
	               Dim oldtMunicipios As tMunicipios = Me.tMunicipios
                   Me.mtMunicipios = Nothing
                   oldtMunicipios.RemoveListatMicroemprendimientos(Me)
             	End If
            	If Not (value Is Nothing) Then
                   Me.mtMunicipios = value
                   Me.tMunicipios.AddListatMicroemprendimientos(Me)
            	End If
             End If
        End Set
       End Property

# End Region



# Region "tPersonas"

		private mtPersonas As New tPersonas

		Public Property tPersonas As tPersonas
        Get
                mtPersonas = mtPersonas.TraerFiltradoListOf("IdPersona", Me.IdPersona).Item(0)
        Return mtPersonas
        End Get
        Set
             If ((mtPersonas Is Nothing) Or (Me.tPersonas.Equals(value) = False)) Then
                If Not (Me.tPersonas Is Nothing)
	               Dim oldtPersonas As tPersonas = Me.tPersonas
                   Me.mtPersonas = Nothing
                   oldtPersonas.RemoveListatMicroemprendimientos(Me)
             	End If
            	If Not (value Is Nothing) Then
                   Me.mtPersonas = value
                   Me.tPersonas.AddListatMicroemprendimientos(Me)
            	End If
             End If
        End Set
       End Property

# End Region
# Region "tBienes_x_Microemprendimiento"
	private mlistatBienes_x_Microemprendimiento As New List (Of tBienes_x_Microemprendimiento)
Public Property ListatBienes_x_Microemprendimiento As System.Collections.Generic.List(Of tBienes_x_Microemprendimiento)
Get
dim mtBienes_x_Microemprendimiento As New tBienes_x_Microemprendimiento
mlistatBienes_x_Microemprendimiento =mtBienes_x_Microemprendimiento.TraerFiltradoListOf("IdMicroemprendimiento",Me.IdMicroemprendimiento)
Return mlistatBienes_x_Microemprendimiento
End Get
Set
RemoveAllListatBienes_x_Microemprendimiento()
If Not (Value Is Nothing) Then
Dim otBienes_x_Microemprendimiento As tBienes_x_Microemprendimiento
	For Each otBienes_x_Microemprendimiento in Value
		AddListatBienes_x_Microemprendimiento(otBienes_x_Microemprendimiento)
	Next
End If
End Set
End Property


		
		
	   Public Sub AddListatBienes_x_Microemprendimiento(newtBienes_x_Microemprendimiento As tBienes_x_Microemprendimiento)
	If (mlistatBienes_x_Microemprendimiento Is Nothing) Then
		mlistatBienes_x_Microemprendimiento = new System.Collections.Generic.List(Of tBienes_x_Microemprendimiento)
	End If
	If Not mlistatBienes_x_Microemprendimiento.Contains(newtBienes_x_Microemprendimiento) Then
		mlistatBienes_x_Microemprendimiento.Add(newtBienes_x_Microemprendimiento)
		newtBienes_x_Microemprendimiento.tMicroemprendimientos = Me
	End If
End Sub

	   
	   
	   
	   Public Sub RemoveListatBienes_x_Microemprendimiento(oldtBienes_x_Microemprendimiento As tBienes_x_Microemprendimiento)
	If (mlistatBienes_x_Microemprendimiento.Contains(oldtBienes_x_Microemprendimiento)) Then
		mlistatBienes_x_Microemprendimiento.Remove(oldtBienes_x_Microemprendimiento)
		oldtBienes_x_Microemprendimiento.tMicroemprendimientos = Nothing
	End If
End Sub
	
			
			Public Sub RemoveAllListatBienes_x_Microemprendimiento()
	If Not (mlistatBienes_x_Microemprendimiento Is Nothing)
		Dim tmp_listatBienes_x_Microemprendimiento As System.Collections.ArrayList = new System.Collections.ArrayList()
		Dim oldtBienes_x_Microemprendimiento As tBienes_x_Microemprendimiento
		For Each oldtBienes_x_Microemprendimiento in mlistatBienes_x_Microemprendimiento
			tmp_listatBienes_x_Microemprendimiento.Add(oldtBienes_x_Microemprendimiento)
		Next
	mlistatBienes_x_Microemprendimiento.Clear()
	For Each oldtBienes_x_Microemprendimiento in tmp_listatBienes_x_Microemprendimiento
		oldtBienes_x_Microemprendimiento = Nothing
	Next
	tmp_listatBienes_x_Microemprendimiento.Clear()
	End If
End Sub

# End Region
# Region "tCobranzas"
	private mlistatCobranzas As New List (Of tCobranzas)
Public Property ListatCobranzas As System.Collections.Generic.List(Of tCobranzas)
Get
dim mtCobranzas As New tCobranzas
mlistatCobranzas =mtCobranzas.TraerFiltradoListOf("IdMicroemprendimiento",Me.IdMicroemprendimiento)
Return mlistatCobranzas
End Get
Set
RemoveAllListatCobranzas()
If Not (Value Is Nothing) Then
Dim otCobranzas As tCobranzas
	For Each otCobranzas in Value
		AddListatCobranzas(otCobranzas)
	Next
End If
End Set
End Property


		
		
	   Public Sub AddListatCobranzas(newtCobranzas As tCobranzas)
	If (mlistatCobranzas Is Nothing) Then
		mlistatCobranzas = new System.Collections.Generic.List(Of tCobranzas)
	End If
	If Not mlistatCobranzas.Contains(newtCobranzas) Then
		mlistatCobranzas.Add(newtCobranzas)
		newtCobranzas.tMicroemprendimientos = Me
	End If
End Sub

	   
	   
	   
	   Public Sub RemoveListatCobranzas(oldtCobranzas As tCobranzas)
	If (mlistatCobranzas.Contains(oldtCobranzas)) Then
		mlistatCobranzas.Remove(oldtCobranzas)
		oldtCobranzas.tMicroemprendimientos = Nothing
	End If
End Sub
	
			
			Public Sub RemoveAllListatCobranzas()
	If Not (mlistatCobranzas Is Nothing)
		Dim tmp_listatCobranzas As System.Collections.ArrayList = new System.Collections.ArrayList()
		Dim oldtCobranzas As tCobranzas
		For Each oldtCobranzas in mlistatCobranzas
			tmp_listatCobranzas.Add(oldtCobranzas)
		Next
	mlistatCobranzas.Clear()
	For Each oldtCobranzas in tmp_listatCobranzas
		oldtCobranzas = Nothing
	Next
	tmp_listatCobranzas.Clear()
	End If
End Sub

# End Region
# Region "tEtapas"
	private mlistatEtapas As New List (Of tEtapas)
Public Property ListatEtapas As System.Collections.Generic.List(Of tEtapas)
Get
dim mtEtapas As New tEtapas
mlistatEtapas =mtEtapas.TraerFiltradoListOf("IdMicroemprendimiento",Me.IdMicroemprendimiento)
Return mlistatEtapas
End Get
Set
RemoveAllListatEtapas()
If Not (Value Is Nothing) Then
Dim otEtapas As tEtapas
	For Each otEtapas in Value
		AddListatEtapas(otEtapas)
	Next
End If
End Set
End Property


		
		
	   Public Sub AddListatEtapas(newtEtapas As tEtapas)
	If (mlistatEtapas Is Nothing) Then
		mlistatEtapas = new System.Collections.Generic.List(Of tEtapas)
	End If
	If Not mlistatEtapas.Contains(newtEtapas) Then
		mlistatEtapas.Add(newtEtapas)
		newtEtapas.tMicroemprendimientos = Me
	End If
End Sub

	   
	   
	   
	   Public Sub RemoveListatEtapas(oldtEtapas As tEtapas)
	If (mlistatEtapas.Contains(oldtEtapas)) Then
		mlistatEtapas.Remove(oldtEtapas)
		oldtEtapas.tMicroemprendimientos = Nothing
	End If
End Sub
	
			
			Public Sub RemoveAllListatEtapas()
	If Not (mlistatEtapas Is Nothing)
		Dim tmp_listatEtapas As System.Collections.ArrayList = new System.Collections.ArrayList()
		Dim oldtEtapas As tEtapas
		For Each oldtEtapas in mlistatEtapas
			tmp_listatEtapas.Add(oldtEtapas)
		Next
	mlistatEtapas.Clear()
	For Each oldtEtapas in tmp_listatEtapas
		oldtEtapas = Nothing
	Next
	tmp_listatEtapas.Clear()
	End If
End Sub

# End Region


# Region "Lecturas que devuelven listas"
Public Function TraerTodosListOf() As List(Of tMicroemprendimientos)
            Dim dtDatos As DataTable
            Dim listatMicroemprendimientos As New List(Of tMicroemprendimientos)
            Dim param As [String]
            param = (Me.mNombreEntidad + "_SelectAll")
            dtDatos = Me.ServidorDatos.TraerDataTable(param)
            For Each dr As DataRow In dtDatos.Rows
            Dim mtMicroemprendimientos As New tMicroemprendimientos
				mtMicroemprendimientos.IdMicroemprendimiento = CType(dr.Item("IdMicroemprendimiento"),Integer)
				mtMicroemprendimientos.Traer_objeto()
            	listatMicroemprendimientos.Add( mtMicroemprendimientos)
    		Next dr
Return listatMicroemprendimientos
End Function

Public Function TraerFiltradoListOf(ByVal Filtro As [String], ByVal Args As Object) As List(Of tMicroemprendimientos)
            Dim dtDatos As DataTable
            Dim param As [String]
            Dim listatMicroemprendimientos As New List(Of tMicroemprendimientos)
            param = (Me.mNombreEntidad + "_Tx")
            param = (param + Filtro.ToString)
            dtDatos = Me.ServidorDatos.TraerDataTable(param, Args)
            For Each dr As DataRow In dtDatos.Rows
            Dim mtMicroemprendimientos As New tMicroemprendimientos
				mtMicroemprendimientos.IdMicroemprendimiento = CType(dr.Item("IdMicroemprendimiento"),Integer)
				mtMicroemprendimientos.Traer_objeto()
            	listatMicroemprendimientos.Add( mtMicroemprendimientos)
    		Next dr
Return listatMicroemprendimientos
End Function

Public Function TraerFiltradoLikeListOf(ByVal Filtro As [String], ByVal Args As Object) As List(Of tMicroemprendimientos)
            Dim dtDatos As DataTable
            Dim param As [String]
            Dim listatMicroemprendimientos As New List(Of tMicroemprendimientos)
            param = (Me.mNombreEntidad + "_TxLike")
            param = (param + Filtro.ToString)
            dtDatos = Me.ServidorDatos.TraerDataTable(param, Args)
            For Each dr As DataRow In dtDatos.Rows
            Dim mtMicroemprendimientos As New tMicroemprendimientos
				mtMicroemprendimientos.IdMicroemprendimiento = CType(dr.Item("IdMicroemprendimiento"),Integer)
				mtMicroemprendimientos.Traer_objeto()
            	listatMicroemprendimientos.Add( mtMicroemprendimientos)
    		Next dr
Return listatMicroemprendimientos
End Function
# End Region

End Class
End Namespace
